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Figure 5. System Parameter File page 1 



1 <?XML VERSION-" 1.0"?> 

2 <GENERAL> 

3 <DOMAINS> 

4 < DOMAIN NAME="XML"> 

5 <_STYLF. KEY="£LEM" 

6 LABEL«"Element"X%T%A>%V%C</%TX/_STYLE> 

7 <_STYLE KEY-" PI" 

8 LABEL-" Processing Instruction"x?%T%V%A?X/_STYLE> 

9 <_STYLE KEY-» "COMMENT" 

10 LABEL-"Conunent"X! — %V — X/_STYLE> 

11 <_STYLE KEY- M TEXT M 

12 LABEL«"Text">%V</_STYLE> 

13 <_STYLE KEY="CDATA" 

14 LABEL- "CDATA"X! [CDATAI%VJ J ></_STYLE> 

15 < EMPTY EMPTY_STYLES» ,t ELEM"X%T%A/x/EMPTY> 

16 <HEADEK> 

17 <?xml vers ion-" 1.0"?X/HEADER> 

18 <EXTENSION SYSTEM-"c : \dev\agentview\Release\AgentView" 

19 LABEL="ViewVX/DOMAIN> 

20 < DOMAIN NAME="Key-Value tt > 

21 <_STYLE KEY— "ELEM" 

22 LABEL-"Element">%T-"%V"%C</_STYLE> 

23 <HEADER> 

24 <DOCTYPE / X/HEADERX/ DOMAIN X/DOMAINS> 

25 <EXECJTYPES> 

26 <EXEC_TYPE KEY— "SQL" 

27 LABEL-" SQL" /> 

28 <EXEC_TYPE KEY— "ADO" 

29 LABEL— "ADO"/ > 

30 <EXEC_TYPE KEY— "SHELL" 

31 LABEL-"Shell"/> 

32 <EXEC_TYPE KEY-" JOIN" 

33 LABEL-" Join" /X/EX£C_TYPESX/GENERAL> 

34 <DEFINITIONS> 

35 <DEFAULT_OUTPUT_FONT_SIZE>24</DEFAULT_OUTPUT_FONT_SI2E> 

36 <DEFAULT_OUTPUT_FONT>Courier New</DEFAULT_OUTPUT_FONT> 

37 <ATTR_COL_LABEL_SEP> I < / ATT R_COL_LABE L_S E P> 

38 <ATTR_EXEO_EXEC</ATTR_EXEC> 

39 <SPLIT_HORIZ>K/SPLIT_HORIZ> 

40 < NORMAL I Z E_NAM E_R E P LAC ESCHAR S > . /S</NORMALI ZE_NAME_REPLACE_CHARS> 

41 < N ORMAL I Z E__N AME_MAKE_U PPER>0< / N ORMAL I Z E_N AM E__MAKE_U P P ER > 
4 2 <XML_CHAR_MAPX-[>=] </XML_CHAR_MAP> 

43 <TREE_VI E W_ FORMAT > Type %T, Attrs: %A, Value-%V</TREE_VIEW_FORMATX/DEFINITIONS> 

44 <VOCABULARIES> 

4 5 <VOCAB KEY— "ALL" 

46 LABEL="A11"> 

47 Ottribute name="ID"/> 

48 ottribute name-"_JOIN_KEY"/> 

4 9 Ottribute name="_JOIN_LABEL"/> 

50 <attribute values-"Outer Inner" 

51 presence-"IMPLIED" 

52 atttype-"ENUMERATION" 

53 name-"_JOIN_TYPE" 

54 default-"Outer"/> 

55 Ottribute name°"_CASE"/> 

56 ottribute name="_SWITCH"/> 

57 Ottribute name-"_SORT_BY"/> 

58 Ottribute values="YES NO" 

59 presence— " IMPLIED" 

60 a tttype-" ENUMERATION" 

61 name-"_CHILDREN_THREADS" 

62 default-"YES"/> 

63 Ottribute values-"YES NO" 

64 presence-" IMPLIED" 

65 a tttype-" ENUMERATION" 

66 name="_SKIP" 

67 default-"YES"/> 

68 Ottribute values-"YES NO" 

69 presence— " IMPLIED" 

70 at ttype-" ENUMERATION" 

71 name-" HIDE VALUE" 



FIG. 5 
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Figures. System Parameter File page 2 



72 default- M YES"/> 

73 <attribute values-"DAO ODBC ADO XML XDF" 

74 presence-"IMPLIED" 

75 atttype-"ENUMERATION" 

76 name»"_DBTYPE" 

77 default-"ODBC"/> 

78 Ottribute name="_D8ID"/> 

79 <attribute values-"YES NO XML** 

80 presence-"IMPLIED" 

81 atttype-" ENUMERATION" 

82 name- SPARSE" 

83 default="YES"/> 

84 <attrlbute name-"_IMPORT"/> 

85 <attribute name="_MAX_ROWS"/> 

86 <attribute values»"XML ITD XDF TEXT" 

87 presence-" IMPLIED" 

88 atttype— "ENUMERATION" 

89 name— "_IMPORT_TYPE" 

90 default-"XML"/> 

91 <elementType id="BELLEVUE"> 
Li* 92 <any/X/elementType> 

m 93 <elementType id=" REDMOND" > 

94 <any/x/elementType> 

fl 95 <elementType id— "SEATTLE "> 

a '". 96 <any/X/elementType> 

97 <elementType id— " FORS ALE " > 

98 <any/x/elementType> 

'm 99 <elementType id-" DBDE FINITION " > 

t*r 100 <string/x/elementType> 

fij 101 <elementType id-"DBJOIN"> 

pW*j 102 <any/x/elementType> 

103 <elementType id="INPUT"> 

s 104 <string/x/elementType> 

. - 105 <elementType id-" PROBLEM"> 

106 <any/x/elementType> 

Lh 107 <elementType id- "GENERAL" > 

3 . 108 <any/x/elementType> 

f~ 109 <elementType id«"CUSTOMER"> 

jpj 110 <any/x/elementType> 

#?S: Ill <elementType id-" PROPERTY" > 

112 <any/X/elementType> 

113 <elementType id-"CONTACT"> 

114 <any/X/elementType> 

115 <elementType id- "COMPONENTS 

116 <any/X/elementType> 

117 <elementType id="AgentLogout "> 

118 <any/x/elementType> 

119 <elementType id-"AgentReady"> 

120 <any/X/elementType> 

121 <elementType id="AgentNotReady"> 

122 <any/x/elementType> 

123 <elementType id="AgentNotBusy"> 

124 <any/x/elementType> 

125 <elementType id="Established"> 

126 <any/x/elementType> 

127 <elementType id="CallInbound"> 

128 <any/x/elementType> 

129 <elementType id="CallOutbound"> 

130 <any/x/elementType> 

131 <elementType id="CallWork"> 

132 <any/X/elementType> 

133 <elementType id-"Released"> 

134 <any/>-:/elementType> 

135 <elementTyp e id="CallHold"> 

136 <any/X/elementType> 

137 <ELEMENTiJ> 

138 < DBDE FIN IT ION ICON_INDEX-"14 2" 

139 LABEL-" Database"/> 

140 < IN PUT ICON_INDEX-"14 3" 

141 LABEL— " Input Parameter"/x/ELEMENTSX/VOCAB> 

142 <VOCAB content="CLOSED" 
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Figure 5. System Parameter File page 3 





143 


KEY-" PROS- 




144 


LABEL"" Problem Log"> 




145 


<attribute name-"_JOIN_KEY"/> 




146 


<attribute name-"_JOIN~LABEL"/> 




147 


<attribute vaiues«"Outer Inner" 




148 


presence-" IMPLIED" 




149 


a tt type—" ENUMERATION" 




150 


name-"_JOIN_TYPE" 




151 


default-"Outer"/> 




152 


<attrlbute name-" CASE"/> 




153 


<attrlbute name-"_SWITCH w /> 




154 


<at tribute name-"_SORT_BY"/> 




155 


<attribute values-"YES NO" 




156 


presence="IMPLIED" 




157 


a tttype-" ENUMERATION" 




156 


name- H _SKIP" 




159 


default-"YES"/> 




160 


<attribute values-"YES NO" 




161 


presence— "IMPLIED" 




162 


a t t t ype- " ENUME RAT I ON " 




163 


name-" HIDE VALUE" 


164 


default-"YES"/> 




165 


<elementType id-" DB DEFINITIONS 


a 


166 


<string/X/elementType> 


is. 


167 


<elementType id-"INPUT"> 


pp 
k~ 


168 


<string/x/elementType> 


169 


<elementType id—" PROBLEM "> 


£3 


170 


<any/x/elementType> 




171 


<elementType Id-"LOGOUT"> 




172 


<any/></elementType> 


ps 


173 


<elementType id— "READY"> 




174 


<any/x/elementType> 


7 


175 


<elementType id-"NOTBUSY"> 




176 


<any/x/elementType> 


177 


<elementType id— "NOTREADY"> 


M 


178 


<any/x/elementType> 


■r~ ■ 


179 


<ELEMENTS> 


180 


<DB DEFINITION IC0N_INDEX-"14 2" 


3 : ! 


181 


LABEL-" Database"/> 


182 


<INPUT ICON_INDEX="14 3" 




183 


LABEL— " Input Pa rameter"/X/ELEMENTSX/VOCAB> 


M 


184 


<VOCAB DTD— "news , dtd" 


185 


KEY="SCRIPTINGNEWS" 




186 


LABEL— " Script ingNews-DTD"/X/VOCABULARIES> 




187 


<ELEMENTS> 




188 


<BELLEVUE ICON_INDEX-"135" 




189 


LABEL-" Bel 1 evue" / > 




190 


<CUST0MER ICON_INDEX-"138" 




191 


LABEL-"Customer"/> 




192 


<DBDEFINITION ICON_INDEX-" 14 2" 




193 


LABEL-"Database"/> 




194 


< FOR SALE ICON INDEX-"139" 




195 


LABEL—" For Sale"/> 




196 


<GENERAL ICON_INDEX="14 5" 




197 


LABEL— "Genera l"/> 




198 


<INPUT ICON_INDEX="14 3 w 




199 


LABEL— "Input Parameter"/> 




200 


<DBJOIN ICONINDEX="14 4" 




201 


LABEL— "Join Children"/> 




202 


<PR0BLEM ICON INDEX-"147" 




203 


LABEL-" Problem" 
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Perform Reference 
Substitution On 
Each Attribute 
Value In Attribute 
List (See Figure 14, 
Substitution Code) 




Unknown 
Import Format, 
Don't Import, 

But Keep 
Element As Is 



Parse XML File 
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Element) 



Read DDF File 
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No 




This Element Is 
NOT Included 




In Data File, 
So Delete 
And Return 



Unknown 
EXEC, Don't 
Execute, But 
Keep Element 
As Is 



Call 

With All Data In This 
Element. Each Child In 
The Result Gets A Copy 
Of The Original Element's 
Children. Result 
Replaces The Original. 



Call CMD.BuildSubtree 
With All Data In This 
Element. Each Child In The 
Result Gets A Copy Of The 
Original Element's Children. 
Result Replaces The Original. 



X 



Call User Provided Custom 
BuildSubtree With All Data In 
This Element. Each Child In 
The Result Gets A Copy Of The 
Original Element's Children. 
Result Replaces The Original. 
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64 




66 
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Processing Thread 

For Each Of This 
Element's Children. 
Each Thread Calls 

Process Element 
For The Child Element. 



For Each Child 
Element, Call 
Process Element 
(Recursive Function Call) 



i 



JL 



68 



Wait For Children 
Threads To Finish 
Or Time Out. 



At This Point, All Children 
Elements Have Been Expanded. 




Call Join Children . 
Passing This Element, 
Value Of Attributes 
JOIN_KEY, JOIN_TYPE 

(Inner Or Outer), 
ROW_LABEL (New Row 
Label) (See Figure 13, 
Join Code) 



71 



Optionally Remove 
Any Intermediate 
Nodes With Attribute 
VISIBLE=NO 
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75 



Format 
Memory Into 
Data File 
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Indicator (Attribute 
GEN_TYPE) For This 
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By Client) 
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76 



V 



77 




78 
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Element >^ 
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Figure 13. Join Code page 1 



// this code called from within Process Element, at the point where we need to check if 
JOIN is requested. 

// execute any intermediate level nodes 

if (sExecType.CompareNoCase(TOKEN_JOIN) ~ 0) ( 
CTreeltem *pBaseItem, *pJoinItem; 
CString sJoin; 
CString sJoinKey; 
CString sJoinLabel; 
JoinType joinType; 
POSITION basePos; 

// parameters for the join: 
// JOINJTYPE: INNER, OUTER 

// JOIN_KEY: the key used to check the Join condition 
// JOIN_LABEL: the new key for the joined row 

// find join parameters 

SearchAttributeValue (CString (TOKEN_JOIN_TYPE J , sJoin) ; 
if (sJoin.CompareNoCase(TOKEN_JOIN_OUTERJ -« 0) 
joinType » OuterJoin; 

else 

joinType «= InnerJoin; 
// get join key 

SearchAttributeValue (CString (TOKEN_JOIN_KEY) , sJoinKey ) ; 
// get join label 

SearchAttributeValue (CString (TOKEN_JOIN_LABEL) , sJoinLabel ) ; 

// take the first child as the source of the join, 
// join the second 

basePos = m_childList .GetHeadPosition ( ) ; 

pBaseltem *= (CTreeltem *) m_chi IdList . GetNext ( basePos ); 

while (basePos !- NULL) { 

pJoinltem » (CTreeltem *) m__chi IdList . GetNext ( basePos ); 

pBaseltem « pBaseItem->Join ( pJoinltem, sJoinKey, sJoinLabel, joinType) ; 

ASSERT_VALID( pBaseltem) ; 

) 

// now prune all children and replace with the new base 

for (pos *> m_childList .GetHeadPosition () ; (prevPos « pos) I- NULL; ) { 
pChildltem - (CTreeltem *) m_chi IdList .GetNext ( pos ); 
m_childList . RemoveAt ( prevPos ); // remove what's at prevPos 
delete pChildltem; 

) 

// add the generated children to this node 

for (pos = pBaseltem- >m_chi IdList .GetHeadPosition ( ) ; (prevPos - pos) != NULL; ) ( 
pChildltem = (CTreeltem *) pBasel tem->m_childList .GetNext (pos ) ; 
pChildItem->m_j>Parent «» this; // reset the parent 
ASSERT_VALID(pChi ldltem) ; 
m__childList.AddTail(pChildItem) ; 

pBaseItenr->m_chi IdList. RemoveAt ( prevPos ); // remove what's at prevPos 
ASSERT_VALID( this ) ; 

) 

) // end TOKEN_JOIN 



///////////////////////////////////////////////////////////////////////////// 
// Join - join the input subtree children with the current subtree's children, 
// returning a new subtree as the result. The resulting parent is a copy of 
// 'this', with joined children 

CTreeltem *CTreeItem: : Join (CTreeltem *pJoinTree, 

CString sJoinKey, // key to join on 

CString sRowLabel, // new row label 

JoinType joinType) 

< 

POSITION posO; 

CTreeltem *pltero0, *pNewSubt ree, *pSubtreeO r *pSubtreel; 
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ASSERT_VALID( pJoinTree) ; 

// operate on the longest list as the soucce 

If (m_childList .GetCount ( } >- pJoinTree->m_childList .GetCount ( ) ) { 
pSubtreeO » this; 
pSubtreel = pJoinTree; 

) 

else { 

pSubtreel - this; 
pSubtreeO = pJoinTree; 

) 

// create the join subtree to hold results 

pNewSubtree « new CTreeltem (m_s Key, m_sValue, m_attrList, m_pParent); 
// now do listO JOIN listl 

for (posO = pSubtreeO->m_childList.GetHeadPosition( ) ; posO l« NULL; ) { 
CTreeltem *pKeyItem, *pTargetItem, *pMergedItem; 
pltemO (CTreeltem *) pSubtreeO->m_childList . GetNext (posO ) ; 

ph // find the value of the row's Join Key item. 

f^Fs pKeyltem « pItemO->SearchSubtree ( 

JjJ (CString) TOKEN_WI LDCARD + V + sJoinKey, TOKEN_WILDCARD) ; 

L|. // as long as we find a join key, try and join 

f. if (pKeylterr.) { 

M // search the join subtree for "*/*/ JOINJCEY/ pKey I tern- >m_s Value" 

8*3 if ( (pTargetltem pSubtreel->SearchSubtree ( 

J 5 ! (CString) TOKEN_W I LDCARD + w / w 

jFU + TOKEN_WI LDCARD + V" 

fi I + sJoinKey, 

- F pKeyItem->m_sValue) ) !** NULL) { 

// we have a join on this "row" 
CTreeltem *pNewItem — new CTreeItem( *pltem0 ) ; 
pNewltem->m_pParent = pNewSubtree; // set the parent 
fh if (! sRowLabel . IsEmptyt ) ) 

5i pNew!tem->m_sKey ** sRowLabel; 



yj // merge for the join. Note that pTargetltem points to the 

fri // item containing the join key. We want to join at the row 

£ p // level , which is the parent of this node. 

h~ pMergedltem » pNewItem->Merge (pTargetItem->m_pParent ) ; 

delete pNewItem; 

pMerged!tem->RemoveDups ( } ; // remove any dup children 



// add the joined child to the new parent 
pMergedItera->m_pParent - pNewSubtree; 
ASSERT_VALID(pMergedItem) ; 

pNewSubtree->m_childList.AddTail (pMergedltem) ; 

) 

else if (joinType =*» OuterJoin) { 

CTreeltem *pNewItem - new CTreeItem( *pltem0) ; 
pNewItem->m_pParent = pNewSubtree; 
pNewItem->m_sKey = sRowLabel; 
pNewSubtree->m_childList.AddTail (pNewItem) ; 

) 

> 

else if (joinType « OuterJoin) { 

CTreeltem *pNewItem = new CTreeltem ( *pltem0) ; 
pNewItem->m_pParent = pNewSubtree; 
pNewItem->m_sKey « sRowLabel; 
pNewSubt ree->m_childList .AddTail (pNewItem) ; 

} 

I 



// return the joined tree 
ASSERT_VALID( pNewSubtree) ; 
return pNewSubtree; 
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///////////////////////////////////////////////////////////////////////////// 

// Merge - Merge 'this* children with the input children, returning a newly 
// created subtree 

CTreeltem *CTreeI tern: :Merge (CTreeltem *pMergeTree) 
( 

CTreeltem *pTreeItem ■» new CTreeItem{ *this ) ; // copy current tree 
POSITION pos; 
.CTreeltem *pChildItem, *pNewChild; 

// copy each subtree to target 

for (pos - pMergeTree->m_childList.GetHeadPosition( ) ; pos != NULL; > ( 
pChildltem = (CTreeltem *) pMergeTree->m_childList .GetNext ( pos ); 
pNewChild » new CTreeItem(*pChildItem) ; 
pNewChild->n_pParent ■ pTreeltem; 
pTreel tem->n_chi IdList .AddTail (pNewChild) ; 

) 



return (pTreeltem) ; 

p ///////////////////////////////////////////////////////////////////////////// 

Crf // RemoveDups - remove and delete duplicate children. Two children are 

|s& // considered dups if they have the same sKey, sValue, and sAttributes 

^ VOID CTreeltem: : RemoveDups ( ) 

fj3 POSITION pos, posl, prevPos; 

5^1 CTreeltem *pTreeItem, *pTargetItem; 

K 

// for each child, remove any dup later in the list 
? for (pos = m_chi IdList .GetHeadPosition ( ) ; pos !- NULL; J { 

\fk pTargetltem = (CTreeltem *> m_chi IdList . GetNext ( pos ); 

^ r // see if target is anywhere else in list, remove if so 

\th posl ■» pos; 

i* while {(prevPos « posl) != NULL) ( 

W pTreeltem = (CTreeltem * ) m_childList .GetNext ( posl ); 

if (pTreeItem->rn_sKey pTargetItem->m_sKey 
3 " L it pTreeItem->m_sValue == pTargetItem->m_sValue 

V~ && pTreeItem->m_attrList == pTargetItem->m_att rList ) ( 

m_ch i IdList . RemoveAt ( prevPos ); // remove at prevPos 
delete pTreeltem; 

> 



///////////////////////////////////////////////////////////////////////////// 
// SearchSubt ree - find the first tree item in the subtree given the path 
// The subtree path may contain the wildcard character ***, which indicates 
// all children of that node should be searched. 

// Example: SearchSubtree ( •WCUST^ID* , "000128 ,, ) searches all children 

// of the current subtree 'this 1 for the first child with key , CUST_ID* and 

// value * 000128* . 

CTreeltem *CTreeIten\: : SearchSubtree (CString sSearchPath, CString sValue) 
i 

BOOL pathEnd; 

CString sKey, sRemains; 

int i Loc; 

POSITION pos; 

CTreeltem *pChi Idltem, *pFound; 



// search all children for the given path component 
iLoc = sSearchPath . Find (SLASH_CHAR ) ; 
if (iLoc >= 0) ( 

sKey = sSearchPath . Left ( iLoc) ; 

sRemains => sSearchPath. Mid ( iLoc + 1); 

pathEnd = FALSE; 

) 
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else ( 

sKey = sSearchPath; 
pathEnd *» TRUE; 

J 

//if we 1 re at the end of the path, check to see if this node is it. 
if (pathEnd) { 

// we have a match if: 

// 1) exact match, 2) sKey is wildcard and value matches, 
// 3) sKey matches and sValue is wildcard, 4) both wildcard 



if ( |m_sKey — sKey fc& m_sValue — «■ sValue) 

| | (sKey — TOKEN_WILDCARD mjValue == sValue) 

| | (m_sKey == sKey && sValue «- TOKEN WILDCARD) 

I ( (sKey TOKEN_WI LDCARD sValue — TOKEN_WILDCARD) ) 

return this; 



// for each child, remove any dup later in the list 

for (pos - m childList-GetHeadPositlont ) ; pos !- NULL; ) { 

pChildltem - (CTreeltem *) m_childList .GetNext ( pos ); 

// not the end of path, so keep searching if this is allowable path 

if (sKey « "* n II sKey ~ pChildItem->m_sKey) ( 



if ((pFound = pChildItem->SearchSubtree(sRemains, sValue) ) != NULL) 
return pFound; 



// if we got here and we're at the end of the path, we didn't find it 
return NULL; 

> 



) 



> 
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///////////////////////////////////////////////////////////////////////////// 

// find and replace all substitution strings. A subst itutable token has the form 
// %% REF. %% represents the token prefix, which can be changed by setting the 
// parameter TOKEN_PREFIX . REF is an internal document reference of the form 
// <complex-path>. <attr>. The "." character is the attribute specifier, and can be 
// changed by setting the ATTR_DESIGNATOR system parameter. 
// See CTreeltem: :GetTreeItemComplexPath for complex-path definition. 
// If <complex-path>. is omitted, /INPUT . <attr> is assumed, and the token 
// evaluates to the attribute value of <attr> in the INPUT element. If a path 
// is given with no <attr>, then the token evaluates to the value of the resulting 
// element. Some examples: %% FILENAME is transformed to /INPUT . FILENAME, which 
// evaluates to the value of the FILENAME attribute in the INPUT element. 
// ../ITEM. ID evaluates to the value of the ID attribute in the current parent's 
// ITEM element. 
^-CString CTreeltem: : Substitution (CString (input, bool bKeyMap) 

400 ^ 402 

CString sRemains » input; 
CString sToken, sResult; 
CString sDef, sValue; 
CTreeltem *pDefItem, *pRoot; 
bool bReplaceSpecial«FALSE; 
_TCHAR cReplace; 
int iLoc*»0, iLocl, len; 
CString sAttr, sPath, sLast; 



len « sRemains. GetLength( ) ; 
sResult ■* input; 

// search for the INPUT element 
pRoot «= TreeRoot ( ) ; 



// parse the input string for replacement tokens 
do { 

sRemains » sResult; 

iLoc - sRemains. Find (TOKENPRE FIX) ; 
if (iLoc < 0) // all substitutions performed 
break; 



iLoc +- TOKEN_PREFIX_LEN; 
sRemains *» sRemains .Mid ( iLoc) ; 



// get end of line or space to end this token 
sToken = sRemains . Spa nlncluding ( PARAM_CHARS) ; 

// if this is single name token, put in special-case defaults 
// this is a deprecated feature that will soon go away! 
if ( sToken. SpanExcluding (TOKENNAMECHARS) .IsEmpty{ I ) { 
sAttr = sToken; 

pDeflterr - pRoot->FindChildElement (TOXEN_INPUT) ; 

) 

else ( 

// Split token into pa th-last-attr parts 
// find the last path component 

if ({iLocl - sToken .Reverse Find ( SLASH_CHAR) ) >» 0) ( 

sLast = sToken. Mid (iLocl) ; // note: don't discard ■/• 
sPath « sToken. Left ( iLocl ) ; 

) 

else { 

sLast = sToken; 
sPath = M "; 

) 

// split attr from sLast 

if ((iLocl « sLasi . ReverseFind ( ATT R_ DESIGNATOR ) ) >» 0) i 
sAttr « sLast .Mid(iLocl*l ) ; 
sLast « sLast . Left ( iLocl ) ; 

I 

else ( 

sAttr = 
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) 

// now put the path back together 
sPath - sPath + sLast; 

// get the tree item. If full path given, search from root, otherwise 
// relative path from current tree item 
if (sPathlOJ — SLASH_CHAR) 

pOefltem » pRoot->GetTreeItemComplexPath (sPath) ; 

else 

pDefltem = GetTreeltemComplexPath (sPath) ; 

J 

if (pDefltem) { 

// get the substitution value 
if (sAttr.IsEmpty( ) ) 

sValue » pDef Item->m_sValue; 

else 

pDef It em->m_attr List . Lookup (sAttr, sVaiue) ; 

} 

else 

sValue - w,f ; // blank it out 

// found it, so make the substitution 
// put the sub string into the original 
sResult » sResult . Left ( iLoc-TOKEN__PREFIX_LEN ) 
+ sValue 

+ sResult .Mid ( iLoc + sToken.GetLength ( ) ) ; 
} while (TRUE); 

// perform the character mappings, if requested 
if (bKeyMap) { 

// substitute any mapped characters 

CSt ring sMap; 

sMap . Format ( XML_CHAR_MAP ) ; 

// do basic error checking 
if (sMap-GetLength { J ) ( 

if <sMap[0] != DEFINE_CHAR fct sMap [ sMap . Get Length ( J -1 ] !« DE FIN E_CHAR } { 
int iMap; 

len = sRemains.GetLength ( ) ; 
sRemains = sResult; 
do { 

iMap = sMap . Find ( DEFINE_CHAR) ; 
if (iMap <= 0) 
break; 

// set flag to replace special chars 

if (sMap(iMap-l) — XML_SPECIAL_REPLACE_FLAG) { 

bReplaceSpecial = TRUE; 

cReplace «» sMap [ iMap+1 ] ; 

I 

else { 

// replace all instances 
do { 

iLoc - sRemains. Find (sMap[iMap-lJ ) ; 
if (iLoc < 0) // all substitutions performed 
break; 

sRemains . Set At ( iLoc , sMap [ iMap+1 ] ) ; 
} while (TRUE); 

> 

sMap » sMap.Mid(iMap+2) ; 
} while (TRUE); 

} 

) 

// replace all special chars if indicated 
unsigned long ch - XML_SPECIAL_CHAR_VALUE; 
if (bReplaceSpecial) ( 

for (iLoc = 0; iLoc < sRemains .GetLength () ; lLoc++> 
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if ((unsigned) sRemains [ iLoc] > ch) 
sRemains . SetAt ( iLoc, cReplace) ; 



return sRemains; 

) 

///////////////////////////////////////////////////////////////////////////// 
// Get the first subtree at the specified complex-path. A complex-path 
// has components of form /KEY: ID=»"VAL1**/SUBKEY: ID= W 999 , V . . - Only a single 
// attribute is supported currently, but this may be expanded in the future 
// to support any number of keys. As a shortcut, if attribute name is left out, 
// •ID* is assumed, e.g. above example is same as /KEY : "VALlVSUBKEY : " 999* . 
// The path may be relative, using path component 1 . 1 to represent the current 
// directory, to represent a parent directory. Leading •/• represents 

// the root of the tree. 410 
// Return NULL if not found. f W 

-CTreeltem *CTreeItem: : GetTreeltemComplexPath (CString sPath) 
i 

401 BOOL pathEnd; 

CString sKey, sRemains, sldAttr, sldValue; 
int iLoc; 

int ilndex, iChild; 

BOOL bAttr« FALSE, blndex- FALSE; 

POSITION pos; 

CTreeltem *pChildItem, *pFound; 
// check for reference to parent 

if (sPath(OJ — DOT_CHAR ifi sPath[l] == DOT_CHAR) { 
ASSERT_VALIC(m_pParent) ; 
sPath = sPath.Mid(2); 

return m_pPa rent ->GetTr eel temComplexPath ( s Path) ; 

) 

// search all children for the given path component sKey. Strip leading */', *./• 
if <sPath[01 == DOTCHAR) 

sPath « sPath.Mid (1) ; 
if (sPathtOJ == SLASH_CHAR) 

sPath - sPath.Mid(l) ; 
iLoc = sPath. Find (S LAS H_CHAR) ; 
if (iLoc >« 0) ( 

sKey = sPath. Left (iLoc) ; 

sRemains « sPath . Mid ( iLoc + 1); 

pathEnd = FALSE; 

) 

else { 

sKey « sPath; 
pathEnd = TRUE; 

I 

// within the path component sKey, separate out the identifying attr-value pair(s) 
if ((iLoc = sKey. Find (ATT REDESIGN ATOR) ) >» 0) ( 
bAttr » TRUE; 

sldAttr - sKey.Mid(iLoc+l); 
sKey = sKey.Left (iLoc) ; 

// find attribute value. If we have single value instead of "I^val" form, 
// then assume the attribute is "ID", and only value is supplied. 

if ((iLoc = sldAttr. Find (EQUAL_CHAR) ) >» 0) < 
sldValue = sldAttr. Mid ( iLoc+1 ) ; 
sldAttr = sldAttr. Left (iLoc) ; 

> 

else ( 

sldValue = sldAttr; 
sldAttr « ATTR_ID; 

) 

StripQuotes (sldValue) ; 

) 

else if ((iLoc = sKey . Find ( INDEX_DESIGNATOR ) ) >= 0) ( 
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// hash mark indicates a 1 -based index 

CString slndex; ' 

blndex = TRUE; 

slndex - sKey .Mid ( iLoc+1 ) ; 

sKey -» sKey.Left (iLoc) ; 

ilndex = atoi (slndex) ; 

) 

else 

bAttr - FALSE; // no attribute search at this level 
// 

// for each child, search for match and proceed with lower level search 

// If children are indexed on ID, lookup the child directly, otherwise, search 

// children. 

if (m_childLookup) { 

pChildltem = GetHashedChild (sldValue) ; // ID is Hash value 

// not the end of path, so keep searching if this is allowable path 

if (bAttr) { 

s =. if (sKey «- pChildItem->m_sKey && pChildItem->m_attrList [sldAttr] 

sldValue) { 

^3 if (pathEnd) 

f?k return pChildltem; 

F; else if ( (pFound - pChi ldlt em- >GetTreeItemC*>mplex Path ( sRemains ) ) !- NULL) 

J??' return pFound; 

r* , 1 

-sea I 

fetJ else ( // ignore attributes 

f\\ if (sKey »» pChildItem->m_sKey ) { 

if (pathEnd) 

return pChildltem; 

else if ((pFound = pChi ldItem->GetTreeItemComplexPath ( sRemains ) ) 1= NULL) 
return pFound; 

> 

h J // otherwise do a sequential search 

£2 iChild = 0; 

13 for (pos » m_childList . GetHeadPosi t ion ( ) ; pos !~ NULL; ) ( 

§5^ pChildltem = (CTreeltem *) m_childList -GetNext ( pos ); 

// not the end of path, so keep searching if this is allowable path 

if (bAttr) { 

if (sKey »» pChildItem->m_sKey && pChildltem- >m_attrList (sldAttr J — 

sldValue) { 

if (pathEnd) 

return pChildltem; 

else if i (pFound = pChi ldItem->GetTreeItemComplexPath ( sRemains ) ) != NULL) 
return pFound; 

} 

} 

else if (blndex) { 

// if this is the right key, increment count and check if we're there 
if (sKey pChildItem->m_sKey fc& -f + iChild == ilndex) ( 
if (pathEnd) 

return pChildltem; 

else if ((pFound = pChi ldItem->GetTreeItemComplexPath ( sRemains ) ) != NULL) 
return pFound; 

) 

) 

else { // ignore attributes, get the first of this key 

if (sKey — pChildItem->m_sKey) { 
if (pathEnd) 

return pChildltem; 

else if ((pFound -» pChildItem->GetTreeItemComplexPath (sRemains ) ) !« NULL) 
return pFound; 

) 

> 

) 

// if we got here anc we're at the end of the path, we didn't find it 
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return NULL; 
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